﻿Public Class Usuarios
    Private ID_Usuario As Integer
    Private Usuario As String
    Private Contrasenia As String
    Private ID_Rol As Integer
    Public Sub New()
    End Sub

    Public Sub New(ByVal idusua As Integer, ByVal usua As String, ByVal contra As String, ByVal idrol As Integer)
        Me.ID_Usuario = idusua
        Me.Usuario = usua
        Me.Contrasenia = contra
        Me.ID_Rol = idrol
    End Sub

    Public Property pIdUsua As Integer
        Get
            Return Me.ID_Usuario
        End Get
        Set(ByVal value As Integer)
            Me.ID_Usuario = value
        End Set
    End Property
    Public Property pUsua As String
        Get
            Return Me.Usuario
        End Get
        Set(ByVal value As String)
            Me.Usuario = value
        End Set
    End Property
    Public Property pContra As String
        Get
            Return Me.Contrasenia
        End Get
        Set(ByVal value As String)
            Me.Contrasenia = value
        End Set
    End Property
    Public Property pIdRol As Integer
        Get
            Return Me.ID_Rol
        End Get
        Set(ByVal value As Integer)
            Me.ID_Rol = value
        End Set
    End Property

End Class
